home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0005.ua < prev    next >
Text File  |  1996-10-30  |  498b  |  34 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0005.ua
  9. `*
  10. `* Tests var-assignment and the use of vars within expressions.
  11. `*
  12. `* output should read:
  13. `*   "Assigning 12345 to testvar"
  14. `*   "Testvar = 12345"
  15.  
  16. #1 .H 2 0 0 0
  17. #2 .M "tc0005" 20 10 0 0
  18.  
  19. #10 .V "testvar"
  20.  
  21. #20 >22 .c 2 21
  22. #21 .s "Assigning 12345 to testvar"
  23.  
  24. #22 >30 .a 10 23
  25. #23 .n 12345
  26.  
  27. #30 >32 .c 1 31
  28. #31 .s "testvar = "
  29.  
  30. #32 >34 .c 4 33
  31. #33 .v 10
  32.  
  33. #34 .c 3 0
  34.